home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Diamond Collection / The Diamond Collection (Software Vault)(Digital Impact).ISO / cdr29 / wcore101.zip / WCBUILD.CMD < prev   
OS/2 REXX Batch file  |  1995-02-04  |  1KB  |  45 lines
  1. /* WCBuild.cmd */
  2.  
  3. curdir = directory()
  4.  
  5. /* Load REXXUTIL */
  6. call rxfuncadd sysloadfuncs, rexxutil, sysloadfuncs
  7. call sysloadfuncs
  8.  
  9. /* The basic call is listed next.                                          */
  10. /* result = SysCreateObject(classname, title, location, setup)             */
  11.  
  12. call SysCls
  13. Say 'Adding Warp Core to your Desktop...'
  14. Say
  15. Say 'Pressing "Y" Indicates you agree to the terps in readme.txt' 
  16. Say
  17. Say '';Say 'Press Y to add Warp Core to The Desktop...';Say '';
  18. parse upper value SysGetKey('NOECHO') with key
  19. If key<>'Y' Then Exit
  20.  
  21. classname='WPProgram'
  22. title="WarpCore"
  23. location='<WP_DESKTOP>'
  24. setup='PROGTYPE=PM;EXENAME='curdir'\WARPCORE.EXE;ICONFILE='curdir'\warpcore.ico'
  25. say setup
  26. Call BldObj
  27.  
  28. Exit
  29.  
  30. /* Build Object */
  31. BldObj:
  32. call charout ,'Building: 'title
  33.  
  34. result = SysCreateObject(classname, title, location, setup)
  35.  
  36. If result=1 Then call charout ,'...   Object created!'
  37. Else             call charout ,'...   Not created! Return code='result
  38. Say
  39. Say' Warning  : WARPCORE Will give false data '
  40. Say '            until after you have run the configure utility.'
  41. Say '';
  42. Return
  43.  
  44.  
  45.